home *** CD-ROM | disk | FTP | other *** search
- 0 POKE53280,.:POKE53281,.:PRINT"[147][151] ";:SYS49230:GOTO100
- 1 GOSUB2:GOTO4
- 2 GOTO1610
- 3 GOTO1000
- 4 GOTO1740
- 5 GOSUB2:GOTO3
- 6 I$=" "+I$:SYS49182,I$:I$=MID$(I$,2):RETURN
- 7 A$=A$+" > ":GOTO1
- 8 A$="":GOTO2
- 9 A$=R$+A$:GOTO2
- 10 GOTO420
- 11 IF(PEEK(MP)AND16)<>CPANDPEEK(706)=.THENZ=1
- 12 RETURN
- 13 CLOSE3:CLOSE2:CLOSE1:RETURN
- 14 SYS49179,A$:RETURN
- 15 GOTO1650
- 16 GOSUB13:GOTO3
- 17 CLOSE1:GOTO2
- 18 F1=1:GOTO2160
- 19 CLOSE2:OPEN2,8,2,"0:USER LOG,S,A":RETURN
- 20 A$=R$+A$:GOTO5
- 21 A$=MID$("[208][210][199][211][197][209][208][210][199]",(PEEK(PP)-1)*3+1,3):RETURN
- 22 M3=VAL(DR$(4,L))+1:RETURN
- 23 POKE54296,15:S=54272:POKES+4,Y:POKES+3,9:POKES+1,8:POKES+5,12:POKES+6,15:POKES+4,65:RETURN
- 25 GOSUB56:I$=" "+"":POKE703,.:SYS49221,I$:IFPEEK(703)>.THENI$="":Z=1:RETURN
- 26 GOSUB6:IFFC=FWANDFWTHENRETURN
- 27 IFVK$<>"[217][206]"THEN46
- 28 IFI$=R$ORI$="[217]"THENA$="[217]ES":D=1:GOTO2
- 29 IFI$="[206]"THENA$="[206]O":D=.:GOTO2
- 30 GOTO25
- 34 A$="[211]TAND BY":GOTO9
- 36 GOSUB1:GOTO6
- 37 PRINT#1,M$CHR$(G)CHR$(H)Y$:INPUT#1,C1,C1$,C1,C1:RETURN
- 42 A$="[215]AITING [198]OR [211]TART [211]IGNAL":IFXPTHENA$=A$+"[195][212][210][204]-[216] TO [193]BORT":RETURN
- 43 A$=A$+"[193]=[193]BORT":RETURN
- 44 A$="[198]ILENAME":O=14:GOTO7
- 45 A$="[208]ROTOCOL: ":GOSUB9:I$=MID$(STR$(XP),2):VK$="012"
- 46 IFVK$<>"012"THEN60
- 47 XP=VAL(I$):IFI$="0"THENA$="[208]UNTER [195]1":XP$="[195]1:":GOTO2
- 48 IFI$="1"THENA$="[216]MODEM [195][210][195]":XP$="[195][210][195]:":GOTO2
- 49 IFI$="2"THENA$="[216]MODEM [195]HECKSUM":XP$="[195][200][203]:":GOTO2
- 50 IFI$="3"THENA$="[216]MODEM 1K":XP$="[216]1K:":GOTO2
- 51 IFI$="4"THENA$="[217]MODEM":XP$="[217]MB:":GOTO2
- 52 IFI$=R$THEN8
- 53 GOTO25
- 54 CLOSE1:OPEN1,8,15:RETURN
- 55 CLOSE1:OPEN1,U,15:RETURN
- 56 T2=TI+WT:IFT2>T-1THENT2=T2-T
- 57 T2=T2-INT(T2/60^3)*60^3:M5=INT(T2/60^2):M5$=MID$(STR$(M5),2)
- 58 M5=.:IFLEN(M5$)>1THENM5=16*VAL(LEFT$(M5$,1))
- 59 MM=VAL(RIGHT$(M5$,1)):M5=M5+MM:POKE702,M5:RETURN
- 60 IFVK$<>"[208][211]"THENVK$="[217][206]":GOTO25
- 61 IFI$="[208]"THENA$="[208]RG":O$=",P,W":GOTO2
- 62 IFI$="[211]"THENA$="[211]EQ":O$=SW$:GOTO2
- 63 GOTO25
- 70 FC=FC+(-1*(FW>.)):IFFC<FWORFW=.THENRETURN
- 71 FC=FW:AS$=A$:A$="<[205]ORE?>":GOSUB2:GOSUB25:A$="":FORX=1TO7:A$=A$+CHR$(20):NEXT
- 72 A$=A$+"":FC=.:GOSUB2:A$=AS$:RETURN
- 74 GOSUB13:OPEN1,8,15,"I0":OPEN3,8,3,"0:[211]YSTEM [213]SERS":RETURN
- 78 A$=MID$(STR$(A),2):IFLEN(A$)=1THENA$="0"+A$
- 79 RETURN
- 80 SYS49224:B$="":FORX=1094TO1101:B$=B$+CHR$(PEEK(X)):NEXT:SYS49230:RETURN
- 83 POKE733,N*-1*(XP<>2):POKE734,N:POKE735,N*-1*(XP<3):RETURN
- 85 MJ$=" [194]LOCKS":IFU4=.THENMJ$="[160][194]YTES":F=F*W
- 86 IFU4=.ANDF>1024THENMJ$=" [203]ILOBYTES":F=F/1024:F=INT(F*10^2+.5)/10^2
- 87 A$=A$+MID$(STR$(F),2)+MJ$+" [198]REE":GOTO2
- 100 IFPEEK(1064)=32THEN100
- 101 OPEN5,2,.,CHR$(6):CP=PEEK(719):M=4096:Y=64:N=128:C=256:B=255:W=254
- 103 MP=PEEK(742)+PEEK(743)*C
- 106 R=192:I$="":FORX=1070TO1073:A$=CHR$(PEEK(X)):I$=I$+A$:NEXT
- 107 IFLEFT$(I$,1)=" "THENI$=MID$(I$,2)
- 108 GOSUB5900
- 110 Y$=CHR$(.):M$="P"+CHR$(99):WT=10800:Q$=CHR$(34):C$=CHR$(160)
- 115 WP$="[208]ASSWORD":L$="0":R$=CHR$(13):SU$="[207][203]":SW$=",S,W":G$="[196]IRECTORY
- 120 J$[178]"(null)(null)(null)(null)(null)":V$[178]"RIGHT$NVALID ":W$[178]"ATNBORTED":[151]1023,B:P$[178]"STR$OWNLOAD
- 170 BS=B:CLOSE9:OPEN9,8,2,"0:CUSTOM":INPUT#9,PS$:INPUT#9,A$
- 180 LF=VAL(A$):INPUT#9,DR$:DR=VAL(DR$):IFDR=-1THEN197
- 185 DIMDR$(4,DR),IT$(DR),JT$(DR),U(DR)
- 190 FORX=.TODR:FORJM=1TO3:INPUT#9,DR$(JM,X):NEXTJM,X
- 195 FORX=.TODR:DR$(2,X)=DR$(2,X)+":":NEXT
- 197 INPUT#9,MG$:MG=VAL(MG$):FORX=.TOMG:FORJM=.TO3:INPUT#9,A$:NEXTJM,X
- 200 INPUT#9,NC$:NC=VAL(NC$):FORX=.TONC:INPUT#9,A$:NEXT
- 205 INPUT#9,A$,BD$:BD=VAL(A$):BD$=BD$+":":INPUT#9,UM$,PG$,A$,LD$
- 206 UM=VAL(UM$):LD=VAL(A$):LD$=LD$+":":PG=VAL(PG$):IFDR>-1THENDIMHD$(PG)
- 207 INPUT#9,A$,NB$,JM$,CG$,A$,P1$,P2$:EZ=VAL(JM$):P1=VAL(P1$):X=.:P1$=""
- 208 DIMTB$(VAL(NB$)+7),A%(20),P1$(P1):PD=VAL(A$):JM$=""
- 209 FORX=.TOP1:INPUT#9,P1$(X):NEXT:X=8
- 210 INPUT#9,TB$(X):X=X+1:IFST=.THEN210
- 220 CLOSE9:OPEN9,8,9,"0:STATS":FORX=.TOMG:INPUT#9,SY$(X),R4$(X),AL$(X),RF$(X):NEXT
- 240 INPUT#9,US$,OL$,YV$,FB$,BF$:IFDR=-1THEN260
- 250 FORX=.TODR:INPUT#9,DR$(4,X):NEXT
- 260 CLOSE9:U=8
- 265 IFTB$(LD)="0"THENPOKE53265,PEEK(53265)OR16:CLOSE1:OPEN1,LD,15,"UI+":CLOSE1
- 270 XP$="[195]1:
- 280 [151]650,N:PP[178]709:T[178]5184E3:A$[178]" "
- 290 [129]X[178]1[164]6:X$[178]X$[170]A$:[130]:X$[178]X$[170]" ":[129]X[178]1[164]16:[130]
- 300 US[178][197](US$):WD[178][194](687):RT$[178]R$:[139]WD[177]40[167]RT$[178]" "
- 315 [159]3,8,3,"0:INDEX":A$[178]X$[170]"":[158]49227,A$:A$[178][200](A$,[194](2025)[171]1):[160]3:PU$[178]A$
- 320 E$[178]"":[129]X[178].[164]1:A[178]([194](710[170]X)):[141]78:E$[178]E$[170]A$:[130]
- 350 DY$[178][202]([196]([194](999)),2):[139][195](DY$)[178]1[167]DY$[178]"0"[170]DY$
- 360 Z$[178][202]([196]([194](1000)),2):[139][195](Z$)[178]1[167]Z$[178]"0"[170]Z$
- 370 Y2[178][194](1001):Y3[178][194](1002):YR[178]Y3[172]C[170]Y2:YR$[178][202]([196](YR),2)
- 380 D$[178]DY$[170]Z$[170][201](YR$,2)
- 390 [141]18:[141]80:E[178][197]([200](B$,2))[172]60[174]3[170][197]([202](B$,4,2))[172]60[174]2
- 400 E[178]E[170]([197]([201](B$,2))[170]1)[172]60:E[178]TI[171]E
- 404 N$[178]"":[129]X[178]971[164]995:A$[178][199]([194](X)):[139]A$[178][199](.)[167]NX[178]995:[137]407
- 405 N$[178]N$[170]A$
- 407 [130]:[129]X[178]1[164]25:[139][201](N$,X)[178][201](X$,X)[167][130]
- 408 N$[178][200](N$,26[171]X):[139]N$[179][177]J$[167]6100
- 410 OC[178]B:U4[178]1:K3[178]B:K4[178]B:FW[178]20:SC[178]1:CN[178]1:P[178]1:WD[178]38:U3[178].:[137]908
- 420 K9$[178][202]("MID$ANASCEB(null)ARATNPR(null)AYMID$UNMID$ULATNUG(null)EP(null)CT(null)OVSTR$EC",([197]([202](K$,3,2))[171]1)[172]3[170]1,3)
- 430 K$[178][200](K$,2)[170]"-"[170]K9$[170]"-"[170][201](K$,2):[142]
- 500 [141]13:[159]1,PD,15,"S0:PRG LIST"[170]L$:[160]1:[159]2,PD,2,"0:PRG LIST"[170]L$[170]SW$
- 501 J[178][197](DR$(4,L)):[152]2," ":[139]J[178].[167][160]2:[137]3640
- 502 [129]JM[178]1[164]J:[152]2,HD$(JM):[130]:[160]2:[137]3640
- 550 FD$[178][201](A$,12):DL$[178][201](FD$,3):FD$[178][200](FD$,9):A$[178][200](A$,[195](A$)[171]12)
- 551 JM[178].:[129]X[178][195](A$)[164]1[169][171]1:[139][202](A$,X,1)[178]""[167]CM$[178][202](A$,X[170]1):JM[178]X:X[178]1
- 552 [130]:[139]JM[167]X[178]JM
- 554 A$[178][200](A$,X[171]1):T$[178][200](A$,6):U$[178]"":JM[178].:[129]WW[178]13[164]28:K1$[178][202](A$,WW,1)
- 556 [139]K1$[178]""[167]JM[178]WW:WW[178]28:[137]560
- 558 U$[178]U$[170]K1$
- 560 [130]:[139]JM[167]WW[178]JM:JM[178].
- 562 PW$[178][202](A$,7,6):TY[178][195](A$)[171]13[171][195](U$):TY$[178][201](A$,TY):[142]
- 599 JU$[178][200](TI$,4)
- 600 K1$[178]"A":[139][197](JU$)[177]1159[167]K1$[178]"P
- 601 IFVAL(JU$)>1259THENJU$=MID$(STR$(VAL(JU$)-1200),2)
- 602 IFVAL(LEFT$(JU$,2))=.THENJU$=MID$(STR$(VAL(JU$)+1200),2)
- 603 IFLEN(JU$)=3THENJU$="0"+JU$
- 604 JU$=LEFT$(JU$,2)+":"+RIGHT$(JU$,2)+K1$:K1$="":RETURN
- 908 IFDR=-1THEN928
- 909 X=.:GOSUB911:GOTO923
- 911 CLOSE2:OPEN2,PD,2,"0:PRG LIST"+MID$(STR$(X),2)
- 913 J=VAL(DR$(4,X)):INPUT#2,A$:IFJ=.THEN920
- 914 POKE687,138:POKE685,.:POKE693,.
- 915 FORJM=1TOJ:A$="":SYS49194:IFPEEK(685)THENA$=LEFT$(X$,PEEK(685)):SYS49200,A$
- 916 SYS49239:HD$(JM)=A$:NEXT:POKE687,WD
- 920 CLOSE2:RETURN
- 923 CLOSE1:OPEN1,8,15:OPEN2,8,2,"0:TIMES":X=-1:INPUT#1,A,C1$,I,I:IFATHEN928
- 924 X=X+1:INPUT#2,IT$(X),JT$(X)
- 925 IFLEFT$(IT$(X),1)="*"THENU(X)=1:IT$(X)=MID$(IT$(X),2)
- 926 IFLEFT$(JT$(X),1)="*"THENU(X)=U(X)+2:JT$(X)=MID$(JT$(X),2)
- 927 IFST=.THEN924
- 928 GOSUB13:A$="[212]RANSFER [211]ECTION [214]940904":GOSUB2
- 940 IFDR=-1THENA$="[212]RANSFER SECTION CLOSED!":GOSUB9:GOTO3672
- 950 POKE687,WD:F$="XINTRO":U=BD:DD$=BD$:GOSUB1660
- 1000 SYS49230:POKE687,WD:J=.:AL=.:NF=.:A$=N$:GOSUB14:WT=10800
- 1010 FC=.:GOSUB2160:ON-(LO>.)GOTO1385:IFZ=2THENA$="[212]IME [197]XPIRED":GOSUB9:GOTO1385
- 1015 IFZTHEN2480
- 1020 A$="[216]FER ("+XP$+L$+")> ":IFPTHENA$=L$+":[216]FER>
- 1040 [141]9:O[178]30:[141]4:[139]Z[176]I$[178]"(null)"[167]3
- 1050 [139]J9[167]1940
- 1060 [141]6:[139]I$[178]"PEEKPEEK(null)"[167]3672
- 1070 A$[178][200](I$,4):[139]A$[178]"(null)ATN(null)VAL"[167]51500
- 1080 [139]A$[178]"(null)RIGHT$(null)(null)"[167]LG[178].:[137]52000
- 1090 [139]A$[178]"(null)(null)(null)CHR$"[167]LG[178]1:[137]52000
- 1095 [139]I$[178]"(null)(null)"[176]I$[178]"STR$(null)"[167]11100
- 1100 [139][200](I$,1)[178]"(null)"[167]19100
- 1104 [139]I$[178]"PEEK(null)(null)"[167]19200
- 1105 [139]A$[178]"STR$VAL(null)(null)"[167]50200
- 1109 [139]A$[178]"ATN(null)LEN(null)"[167]AL[178]1:I$[178]"(null)(null)ATNSTR$"[170][202](I$,5):[137]1070
- 1110 [139]A$[178]"(null)(null)ATNSTR$"[167]51000
- 1120 [139]I$[178]"?"[176]I$[178]"LEFT$"[167]F$[178]"HELPL":U[178]BD:DD$[178]BD$:[141]1660:[137]3
- 1130 [139]A$[178]"STR$(null)RIGHT$(null)"[167]10000
- 1140 [139][200](I$,1)[178]"LEN"[167]1880
- 1170 [139]I$[178]"(null)"[167]2060
- 1180 [139]I$[178]"RIGHT$(null)(null)(null)(null)"[167]950
- 1195 [139][200](I$,3)[178]"STR$RIGHT$(null)"[167]VQ$[178]L$:[137]53080
- 1200 [129]X[178].[164]P1:[139]I$[178]P1$(X)[167]X[178]P1:[130]:[137]27003
- 1201 [130]
- 1320 [139]I$[178]"(null)"[167]1385
- 1330 [139]I$[179][177]"CHR$"[167]A$[178]"? FOR LEFT$ELP":[137]20
- 1350 J[178]1:A$[178]"(null)OGOFF, YOU SURE? ":[141]9:VK$[178]"(null)(null)":[141]25:[139]Z[178].[175]D[178].[167]3
- 1385 [151]1023,W:[137]3673
- 1560 [151]707,.
- 1570 A[178][198](A$)
- 1580 [139]A[178]136[167]1910
- 1590 [139]A[178]137[176][194](702)[178]B[167][142]
- 1592 [139]A[178]135[167][141]6000:A$[178]Y$:[139]DE[167]Z[178]1:[142]
- 1593 [139]A[178]139[167]E[178]TI:K[178]E:I$[178]"(null)":[129]X[178]56587[164]56584[169][171]1:[151]X,.:[130]:X[178][194](56584):[142]
- 1600 A$[178]AS$:[137]1820
- 1610 [161]#5,K9$:Q[178].:H$[178]"":[139]A$[178]""[167][141]8:[137]1620
- 1615 [158]49203,A$:[158]49239:[141]11:[139]Z[167]H$[178]"":Q[178]1:[142]
- 1620 [139][201](A$,1)[179][177]""[175]SK[178].[167]2840
- 1630 [142]
- 1650 U[178]8:DD$[178]"0:
- 1660 GOSUB13:OPEN1,U,15:OPEN2,U,2,DD$+F$
- 1680 POKE685,.:POKE693,.:INPUT#1,A,A$,I,I:IFATHEN13
- 1690 GOSUB8
- 1700 A$="":SYS49194:S=ST:IFPEEK(685)THENA$=LEFT$(X$,PEEK(685)):SYS49200,A$
- 1703 SYS49239:IFFWTHENFC=FC+1:IFFC=FWTHENGOSUB71:IFI$="[206]"THENS=Y:GOTO1725
- 1720 GOSUB2
- 1725 IF(SANDY)=YORQTHENCLOSE2:CLOSE1:A=.:RETURN
- 1730 GOTO1700
- 1740 POKE694,.:GOSUB18:IFJ9ANDJ<>1THENI$=C$:A$=C$:GOTO2
- 1750 GOSUB56:IFPATHENGOSUB23
- 1810 POKE703,.:IFO=.THENO=38
- 1820 A$=LEFT$(X$,O):SYS49215,A$:IFJ=1ANDPEEK(707)=136THENPOKE707,.:GOTO1820
- 1830 IFPEEK(707)>.THENAS$=A$:A$=CHR$(PEEK(707)):GOTO1560
- 1840 IFPEEK(703)>.THENZ=2:I$=C$:RETURN
- 1850 I$=A$:I$=LEFT$(I$,PEEK(694))
- 1860 IFPEEK(694)=.THENI$=C$
- 1870 O=.:RETURN
- 1880 IFPEEK(739)THENA$="[211]ORRY, [211]YSOP NOT AVAILABLE.":GOTO20
- 1885 IFPATHENA$="[208]AGER IS [207][198][198]":POKE54296,.:PA=.:POKE690,PEEK(729):GOTO20
- 1890 PA=1:POKE54296,15:A$="[208]AGER IS [207][206]":POKE690,7:GOTO20
- 1910 IFJ9THENK=TI:J9=.:RETURN
- 1920 J9=1:I$=C$:A$=C$:GOTO2
- 1940 POKE54296,.:PA=.:A$="[195]HAT [205]ODE":GOSUB9:POKE690,PEEK(729):GOTO2550
- 2060 GOSUB599:A$="[195]URRENT TIME IS "+JU$+"M, "
- 2070 K$=D$:GOSUB10:A$=A$+K$:GOSUB9:IFTI<ETHENE=E-T
- 2080 L2=TI:TH=INT((L2-E)/60^3):L2=L2-60^3*TH:TM=INT((L2-E)/60^2):L2=L2-60^2*TM
- 2090 TS=INT((L2-E)/60):IFTH<10THENTH$="0"+RIGHT$(STR$(TH),1):GOTO2110
- 2100 TH$=RIGHT$(STR$(TH),2)
- 2110 IFTM<10THENTM$="0"+RIGHT$(STR$(TM),1):GOTO2130
- 2120 TM$=RIGHT$(STR$(TM),2)
- 2130 IFTS<10THENTS$="0"+RIGHT$(STR$(TS),1):GOTO2150
- 2140 TS$=RIGHT$(STR$(TS),2)
- 2150 A$=" [195]ONNECT [212]IME = "+TH$+":"+TM$+":"+TS$:GOTO5
- 2160 TC=56328:X9=PEEK(TC+3):A%=(X9AND16)/16+48:B%=(X9AND15)+48
- 2170 IFX9=>NANDVAL(CHR$(A%)+CHR$(B%))<12THENA%=A%+1:B%=B%+2
- 2180 IFB%>57THENA%=A%+1:B%=B%-10
- 2190 IFX9<NANDA%=49ANDB%=50THENA%=48:B%=48
- 2200 X9=PEEK(TC+2):C%=(X9AND240)/16+48:D%=(X9AND15)+48
- 2210 X9=PEEK(TC+1):E%=(X9AND240)/16+48:F%=(X9AND15)+48
- 2220 X9=PEEK(TC):TI$=CHR$(A%)+CHR$(B%)+CHR$(C%)+CHR$(D%)+CHR$(E%)+CHR$(F%)
- 2230 IFF1=1THENF1=.:RETURN
- 2240 IFTI<ETHENE=E-T
- 2250 L2=TI-E
- 2252 GOSUB11:IFZTHENRETURN
- 2253 L7=INT(L2/60^3):L8=INT((L2-L7*60^3)/60^2):L9=INT((L2-L7*60^3-L8*60^2)/60)
- 2254 L4=L7*60+L8:IFL4>=EZANDSC=.THENZ=2:RETURN
- 2255 IFL4>=EZ-10ANDSC=.THENGOSUB2750:A$="[195]ONNECT [212]IME > "+T9$:GOSUB9
- 2260 IFVAL(TI$)<10000ANDPEEK(1018)<>1THEN2290
- 2270 IFTI$>"010000"THENPOKE1018,.
- 2280 RETURN
- 2290 POKE1018,1:IFDY$="28"ANDZ$="02"THEN2420
- 2300 IFDY$="29"ANDZ$="02"THENDY$="01":Z$="03":GOTO2440
- 2310 IFDY$="31"AND(Z$="01"ORZ$="10"ORZ$="03"ORZ$="05"ORZ$="07")THEN2360
- 2320 IFDY$="31"AND(Z$="08"ORZ$="12")THEN2360
- 2330 IFDY$="30"AND(Z$="09"ORZ$="11"ORZ$="04"ORZ$="06")THEN2360
- 2340 DY$=MID$(STR$(VAL(DY$)+1),2):IFLEN(DY$)=1THENDY$="0"+DY$
- 2350 GOTO2440
- 2360 TJ=VAL(Z$)+1:IFTJ<10THENLT=1:GOTO2380
- 2370 LT=2:GOTO2380
- 2380 DY$="01":Z$=RIGHT$(STR$(TJ),LT)
- 2390 IFLT=1THENZ$="0"+Z$
- 2400 IFZ$="13"THENYR$=RIGHT$(STR$(VAL(YR$)+1),4):Z$="01"
- 2410 GOTO2440
- 2420 YR=VAL(YR$):Y2=YR/4:YR=INT(YR/4):IFYR=Y2THENDY$="29":GOTO2440
- 2430 DY$="01":Z$="03"
- 2440 POKE999,VAL(DY$):POKE1000,VAL(Z$):YR=VAL(YR$):Y3=INT(YR/C)
- 2450 Y2=YR-(Y3*C):POKE1001,Y2:POKE1002,Y3:D$=DY$+Z$+RIGHT$(YR$,2)
- 2460 K$=D$:GOSUB10:GOSUB19:A$=" "+R$+"[196]ATE: "+K$+R$+" ":PRINT#2,A$:CLOSE2
- 2470 OPEN2,8,2,"0:LU,S,A":PRINT#2,A$:CLOSE2:OPEN2,8,2,"0:LD,S,A":PRINT#2,A$:GOTO13
- 2480 POKE1023,253:J9=.:GOSUB2510:POKE54296,.:GOTO3675
- 2510 SYS49230:FORX=8TOVAL(NB$)+7:CLOSE1:OPEN1,X,15:CLOSE1
- 2520 IFST=.THENOPEN1,X,15,"I0:":CLOSE1
- 2540 NEXT:RETURN
- 2550 POKE694,.:POKE702,B:SYS49215,X$
- 2560 IFPEEK(707)=.THEN2550
- 2570 A$=CHR$(PEEK(707)):GOSUB1560:IFJ9=.ORZTHENGOSUB8:K=TI:GOTO3
- 2580 GOTO2550
- 2750 IFTI<ETHENE=E-T
- 2760 L2=TI:TH=INT((L2-E)/60^3):L2=L2-60^3*TH:TM=INT((L2-E)/60^2):L2=L2-60^2*TM
- 2770 TS=INT((L2-E)/60):IFTH<10THENTH$="0"+RIGHT$(STR$(TH),1):GOTO2790
- 2780 TH$=RIGHT$(STR$(TH),2)
- 2790 IFTM<10THENTM$="0"+RIGHT$(STR$(TM),1):GOTO2810
- 2800 TM$=RIGHT$(STR$(TM),2)
- 2810 IFTS<10THENTS$="0"+RIGHT$(STR$(TS),1):GOTO2830
- 2820 TS$=RIGHT$(STR$(TS),2)
- 2830 T9$=TH$+":"+TM$+":"+TS$:RETURN
- 2840 SK=.:K=TI:IFK9$>""THENA$=K9$:GOTO2870
- 2850 GETA$:IFA$>""THEN2870
- 2860 GET#5,A$:IFA$>""THEN2870
- 2865 IF(PEEK(673)AND1)=.THENRETURN
- 2867 GOTO2850
- 2870 K=TI:Z=.:A=ASC(A$):IFA>127THENA$=CHR$(A-N)
- 2875 IFA$=CHR$(131)THENA$="
- 2880 [139]A$[178]""[176]A$[178]""[176]A$[178]""[167]H$[178]A$:Q[178]1:[142]
- 2890 [139]A$[178][199](83)[176]A$[178][199](115)[176]A$[178]""[167]A$[178]"<LEN>":SK[178]1:[141]2:[137]2960
- 2900 [137]2850
- 2960 [161]A$:[139]A$[177]""[167]2990
- 2970 [139]TI[171]K[177]WT[167]A$[178][199](65):Z[178]1:[137]2990
- 2980 [161]#5,A$:[139]A$[178]""[167]2960
- 2990 A[178][198](A$):[139]A[177]127[167]A$[178][199](A[171]N)
- 3000 [139]A$[178][199](65)[176]A$[178][199](97)[176]A$[178]""[167][141]3055:Q[178]1:[142]
- 3010 [139]A$[178][199](67)[176]A$[178][199](99)[176]A$[178]""[167]3055
- 3020 [137]2960
- 3055 A$[178][199](20):A$[178]A$[170]A$[170]A$[170]"":[141]2:SK[178].:FC[178].:[142]
- 3330 [141]74:FL[178].:X[178][181](US[173]2):N4[178]US:N3[178].:[139][194](730)[167]X[178][194](730)
- 3350 H[178][181](X[173]C):G[178]X[171]C[172]H
- 3360 [141]37:A$[178]X$[170]"":[158]49227,A$:[141]37
- 3370 A$[178][200](A$,[194](2025)[171]1):N9$[178][200](A$,[195](A$)[171]58)
- 3380 [139]N$[178]N9$[167]13
- 3390 [139]FL[178].[175]N4[171]N3[178]1[167]X[178]N4:FL[178]1:[137]3350
- 3400 [139]FL[178]1[175]N4[171]N3[178]1[167]13
- 3410 [139]N$[177]N9$[167]N3[178]X:X[178]X[170][181]((N4[171]X)[173]2):[137]3350
- 3420 N4[178]X:X[178]X[171][181]((X[171]N3)[173]2):[137]3350
- 3640 [160]14:[160]1:[159]1,8,15,"S0:STATS":[152]1,"I0":[160]1
- 3645 [159]14,8,14,"0:STATS,S,W
- 3650 FORX=.TOMG:PRINT#14,SY$(X);R$;R4$(X);R$;AL$(X);R$;RF$(X):NEXT
- 3660 PRINT#14,STR$(US);R$;Q$+OL$;R$;YV$;R$;FB$;R$;BF$:IFDR=-1THEN3671
- 3670 FORX=.TODR:PRINT#14,DR$(4,X):NEXT
- 3671 CLOSE14:RETURN
- 3672 POKE1023,B:SYS65484:A$="[207]NE MOMENT...":GOSUB9:GOTO3675
- 3673 GOSUB80:GOSUB599:A$="[204]OGOFF AT "+JU$+"M
- 3674 [141]9:A$[178]"LENONNECT (null)IME = "[170]B$[170]"(null)LEASE CALL AGAIN.":[141]2
- 3675 [151]54296,.:LP$[178]"":F$[178]"BBS6*
- 3677 IFPQTHENGOSUB19140
- 3678 IFTB$(LD)="0"THENPOKE53265,PEEK(53265)AND239:CLOSE1:OPEN1,LD,15,"UI-":CLOSE1
- 3685 PRINT"[147]NEW"R$"LOAD"Q$;LD$;LP$;F$;Q$",";LD;":"R$"RUN":POKE198,3
- 3690 POKE631,13:POKE632,13:POKE633,13:PRINT"":A$=N$:GOSUB14:END
- 4000 B$="LD":X=1:F$="":IFNF<=YNTHENM3=A%(NF):A$=HD$(M3):GOSUB550:F$=U$:X=1
- 4002 A=TI
- 4004 GET#5,A$:IFA$=""THEN51370
- 4006 IFA$<>"C"AND(TI-A<600)THEN4004
- 4008 IFA$<>"C"THENX=X+1:IFX<10THEN4002
- 4010 IFA$<>"C"THEN51370
- 4012 BL$=""+Y$+CHR$(B):POKE736,.:POKE737,.
- 4014 IFNF>YNTHEN4018
- 4016 FORX=1TOLEN(F$):BL$=BL$+CHR$(ASC(MID$(F$,X,1))AND127):NEXT
- 4018 FORX=1TO(131-LEN(BL$)):BL$=BL$+Y$:NEXT
- 4020 FORX=4TO131:POKE780,ASC(MID$(BL$,X,1)+Y$):SYS49266:NEXT
- 4021 POKE780,.:SYS49266:POKE780,.:SYS49266
- 4022 BL$=BL$+CHR$(PEEK(737))+CHR$(PEEK(736)):PRINT#5,BL$;:X=1
- 4024 A=TI
- 4026 GET#5,A$
- 4028 IFA$=""THEN51370
- 4030 IFA$<>""AND(TI-A<600)THEN4026
- 4032 IFA$<>""THENX=X+1:IFX<10THEN4024
- 4034 IFA$<>""THEN51370
- 4040 IFNF>YNTHEN51367
- 4042 GOTO51310
- 5900 BR=VAL(I$):POKE659,6:RC=1022730/BR:GOSUB5950
- 5910 POKE176,G:POKE177,H:POKE665,G
- 5920 POKE666,H:RC=1022730/BR/2-100:GOSUB5950:POKE661,G:POKE662,H
- 5930 IFLEN(I$)=3THENI$="0"+I$
- 5940 FORX=1TO4:POKEX+964,ASC(MID$(I$,X,1)):NEXT:RETURN
- 5950 H=INT(RC/C):G=INT(RC-H*C):RETURN
- 6000 A$="LOGOFF USER? ":B$=A$:GOSUB14
- 6010 GETA$:IFA$=""THEN6010
- 6020 IFA$="N"THENA$=B$+"NO":DE=.:GOTO14
- 6030 IFA$="Y"THENA$=B$+"YES":DE=1:GOTO14
- 6040 GOTO6010
- 6100 GOSUB3330:ZL=G:ZH=H:ZR$=A$:BA$=RIGHT$(A$,28):A$=LEFT$(A$,LEN(A$)-28)
- 6105 XZ$=RIGHT$(A$,30):FG=ASC(MID$(XZ$,20,1)):XP=(FGAND31):FW=ASC(MID$(XZ$,21,1))
- 6106 OC=ASC(MID$(XZ$,22,1)):K3=ASC(MID$(XZ$,23,1)):K4=ASC(MID$(XZ$,24,1))
- 6107 AC=ASC(MID$(XZ$,25,1)):IFXPTHENXP$=MID$("[195][210][195]:[195][200][203]:[216]1K:[217]MB:",4*(XP-1)+1,4)
- 6108 GH$=RIGHT$(XZ$,5)
- 6110 POKE701,((FGAND32)=.)+1:U1$=MID$(XZ$,13,7):RH=ASC(LEFT$(U1$,1))-R
- 6120 RL=ASC(MID$(U1$,2,1))-R:RN=RH*Y+RL:RV=ASC(MID$(U1$,5,1))-R
- 6130 RN=RN+RV*M:CS=ASC(MID$(U1$,6,1)):MN$=MID$(U1$,4,1):LJ=PEEK(704)
- 6140 MN=ASC(MID$(U1$,4,1))-R:FG=ASC(MID$(U1$,3,1)):SC=((FGAND4)=.)+1
- 6150 CN=((FGAND2)=.)+1:P=((FGAND1)=.)+1:WD=ASC(MID$(U1$,7,1)):POKE687,WD
- 6160 N5=((FGAND8)=.)+1:K$=MID$(XZ$,7,6):IFPEEK(690)=7THENPA=1
- 6180 U1=((FGAND16)=.)+1:U2=((FGAND32)=.)+1
- 6190 U3=((FGANDY)=.)+1:U4=((FGANDN)=.)+1
- 6200 I$=LEFT$(XZ$,6):GOSUB6:CW$=I$:XZ$=CW$+D$+U1$
- 6210 G2=G:H2=H:GOTO908
- 7000 VQ$=L$:IFLEN(I$)>7THENL$="":RETURN
- 7002 L$=MID$(STR$(VAL(MID$(I$,5))),2)
- 7003 IFLEN(I$)=4THENL$=VQ$
- 7004 L=VAL(L$):IF(L<.ORL>DR)OR(L=.ANDL$<>"0")THENL$="":L=.:RETURN
- 7006 U=VAL(DR$(1,L)):DD$=DR$(2,L):IFL>13THEN7009
- 7007 IFL<7AND(K3AND2^(L+1))=.THEN7012
- 7008 IFL>6AND(K4AND2^(L-6))=.THEN7012
- 7009 IFL$<>VQ$THENFORX=1TOPG:HD$(X)="":NEXT:X=L:GOSUB911
- 7010 A$=G$+" "+L$+":"+DR$(3,L):GOTO9
- 7012 A$="[193]CCESS TO DIR "+L$+" DENIED!":GOSUB9:GOTO53090
- 7050 SP$=LEFT$(X$,40):PRINT"[147]";:FORX=1TO6:PRINTSP$;:NEXT
- 7055 PRINT"[152]";:FORX=1TO40:PRINT"[192]";:NEXT:PRINT"[151]";
- 7060 FORX=1TO12:PRINTSP$;:NEXT:SP$="":PRINTLEFT$(X$,31)"[152][176][192][192][192][192][192][192][192][192]";
- 7065 FORX=1TO31:PRINT"[192]";:NEXT:PRINT"[189]":SP$=""
- 7070 PRINT" [206]AME: "N$R$"[145] [198]ILENAME: "F$:IFXP=.THENRETURN
- 7075 PRINT" [212]RANSFER [201]N [208]ROGRESS
- 7076 [139]XP[178]4[167][153]" ASCILE";NF;"OF";YN
- 7080 [153]"POKE ASCILE (null)YPE: PRINT#"FT$
- 7085 [153]"ONONPOKEPEEKAD PEEKLOCKS: PRINT#00000":[153]"ONONPOKEPEEKLOCKS (null)ENT: PRINT#00000";:[142]
- 10000 A$[178]P$[170]"ING ALLOWED DURING:":[141]9:JM[178].
- 10001 [129]X[178].[164]DR
- 10002 JU$[178]IT$(X):[141]600:JM$[178]JU$[170]" TO "
- 10003 JU$[178]JT$(X):[141]600:JM$[178]JM$[170]JU$:[139][197](IT$(X))[178].[167]JM$[178]"24 HOURS
- 10004 IFU(X)>1THENJM$="[206]O "+P$+"ING
- 10005 [139]U(X)[178]3[176]U(X)[178]1[167]JM$[178]JM$[170]", (null)O (null)PLOADING
- 10006 IFU(X)=.ORU(X)=2THENJM$=JM$+", [213]PLOADING [193]LLOWED
- 10007 [139]JM[178]99[167][142]
- 10008 A$[178][202]([196](X),2)[170]": "[170]JM$:[141]2:[139]Q[167]X[178]DR
- 10009 [130]:[137]3
- 11100 A$[178]"STR$:ASCILENAME (null)SER":[141]9:[151]687,50:F$[178]"LD":[139]I$[178]"(null)(null)"[167]F$[178]"LU"
- 11120 [141]15:[137]3
- 19100 A$[178]"(null)ELECT (null)ROTOCOL":[141]9
- 19110 A$[178]"[0] - (null)UNTER LEN1[1] - (null)MODEM LEN(null)LEN":[141]9
- 19120 A$[178]"[2] - (null)MODEM LENHECKSUM[3] - (null)MODEM 1K (ASCULL PEEKLOCK VALNDINGS)":[141]2
- 19125 A$[178]"[4] - (null)MODEM ("[170]P$[170]" (null)NLY)":[141]2
- 19130 A$[178]">":[141]9:VK$[178]"012":JM[178]XP:[141]25:[139]JM[178]XP[176]Z[176]I$[178]R$[167]JM[178].:[137]3
- 19135 PQ[178]1:JM[178].:[137]3
- 19140 [141]13:[139]N$[178]J$[167][142]
- 19141 RV[178][181](RN[173]M):RH[178]RN[171]RV[172]M:RH[178][181](RH[173]Y):RL[178]RN[171]RV[172]M[171]RH[172]Y
- 19142 RV[178]RV[170]R:RH[178]RH[170]R:RL[178]RL[170]R:ZT[178]P[170]CN[172]2[170]SC[172]4[170]N5[172]8[170]U1[172]16[170]U2[172]32[170]U3[172]Y[170]U4[172]N
- 19143 [141]74:ZR$[178]N$[170][200](XZ$,6)[170]D$[170][199](RH)[170][199](RL)[170][199](ZT)[170]MN$[170][199](RV)
- 19144 [139]CS[177]B[167]CS[178]B
- 19145 ZR$[178]ZR$[170][199](CS)[170][199](WD)[170][199](XP[170]32[172][194](701))[170][199](FW)[170][199](OC)[170][199](K3)[170][199](K4)
- 19146 ZR$[178]ZR$[170][199](AC)[170]GH$[170]BA$:[152]1,M$[199](G2)[199](H2)Y$
- 19147 [152]3,ZR$:[152]1,M$[199](G2)[199](H2)Y$:[137]13
- 19200 U4[178]1[171]U4:PQ[178]1:A$[178]"PEEKLOCKS DISPLAY "[170][202]("(null)FF(null)N ",3[172]U4[170]1,3):[137]20
- 27003 F$[178]I$:LP$[178]"L-
- 27010 GOSUB13:OPEN1,LD,15:OPEN2,LD,2,LD$+LP$+F$:CLOSE2:INPUT#1,A,C1$,I,I:CLOSE1
- 27011 IFA=.THENGOSUB34:GOSUB8:GOTO3677
- 27013 IFLP$="L-"ANDSCTHENLP$="S-":GOTO27010
- 27015 GOTO1330
- 50200 GOSUB7000:IFL$=""THEN53080
- 50210 GOSUB44:IFI$=C$THEN3
- 50240 GOSUB6:F$=I$:GOSUB13
- 50250 GOSUB22:IFM3=1THEN50360
- 50260 M3=M3-1:A$=HD$(M3):GOSUB550:SYS49239:IFU$=F$THEN50390
- 50340 IFM3=1THEN50360
- 50350 GOTO50260
- 50360 A$="[198]ILE [206]OT [204]ISTED":GOSUB9:GOTO50210
- 50390 IFSCTHEN50430
- 50400 IFLEFT$(N$,15)<>TY$THENA$="[206]OT YOURS"+W$:GOTO12
- 50430 A$="[196]ELETING":GOSUB9
- 50433 IFM3=VAL(DR$(4,L))THENHD$(M3)="":GOTO50450
- 50435 FORX=M3TOVAL(DR$(4,L))-1:HD$(X)=HD$(X+1):NEXT
- 50450 DR$(4,L)=MID$(STR$(VAL(DR$(4,L))-1),2)
- 50470 GOSUB500:A$="R"+DD$+"D"+LEFT$(F$,14)+L$+"="+DD$+F$+L$
- 50480 OPEN1,U,15,A$:CLOSE1:GOTO3
- 50500 A$=P$+"ING IS ONLY PERMITTED DURING":GOSUB9:JU$=IT$(L):GOSUB600
- 50501 A$="THE HOURS OF "+JU$+" TO ":JU$=JT$(L):GOSUB600
- 50502 A$=A$+JU$+" FOR"+RT$+"THIS "+G$+".":GOTO5
- 50600 A$="[217]OU DON'T HAVE ENOUGH TIME LEFT TO":GOSUB9
- 50601 A$=A$+RT$+P$+" THIS FILE. [201]N THE TIME LEFT":GOSUB2
- 50605 A=EZ-L4:FZ=17:IFXPTHENFZ=19:IFXP>2THENFZ=21
- 50606 FZ=FZ*(1-1*(BR>1230)):IFBR<1200THENFZ=5:IFXPTHENFZ=6
- 50607 F=A*FZ:FZ=.:B$=" [195][194][205] BLOCKS.":IFU4=.THENF=F*W:B$=" BYTES.
- 50610 A$[178]"YOU MAY "[170]P$[170][196](F)[170]B$:[141]2:[137]2060
- 50620 JU$[178]JT$(L):[141]600
- 50621 A$[178]"(null)ORRY, "[170]P$[170]"ING ENDS AT "[170]JU$[170]RT$[170]" FOR THIS "[170]G$[170]".":[141]9:[137]2060
- 51000 YN[178].:J7[178].:[141]7000:[139]L$[178]""[167]53080
- 51002 [139]U(L)[177]1[175]SC[178].[167]A$[178]"(null)O "[170]P$[170]"ING FROM THIS "[170]G$:[137]20
- 51003 TV[178].:[139]AL[176]SC[176][197](IT$(L))[178].[167]51010
- 51004 O[178][197]([200](TI$,4)):TV[178][197](JT$(L))[171]O
- 51005 [139][200](JT$(L),2)[178]"00"[176][201](JT$(L),2)[179][177][201](TI$,2)[167]TV[178]TV[171]40
- 51006 [139]O[177][197](JT$(L))[175]O[179][197](IT$(L))[175][197](IT$(L))[177][197](JT$(L))[167]50500
- 51008 [139](O[177][197](JT$(L))[176]O[179][197](IT$(L)))[175][197](IT$(L))[179][197](JT$(L))[167]50500
- 51010 [139]AL[178].[167][141]45
- 51017 [139]XP[178]4[167]A$[178]"(VALNTER RETURN ALONE WHEN DONE)":[141]9
- 51020 [141]44:[139]I$[178]C$[175](XP[179]4[176](XP[178]4[175]YN[178].))[176]Z[167]3
- 51030 [139](I$[178]C$[175]XP[178]4)[176]YN[178]20[167]F[178]J7:NF[178]1:[137]51224
- 51040 [141]6:F$[178]I$
- 51050 S$[178]I$:[141]22
- 51055 [139]M3[178]1[167]51160
- 51060 M3[178]M3[171]1:A$[178]HD$(M3):[158]49239:[139][202](A$,13,[195](F$))[179][177]F$[167]51055
- 51130 [141]550:[139]S$[178]U$[167][141]13:[137]51180
- 51150 [137]51055
- 51160 [141]13:A$[178]F$[170]" NOT ASCOUND":[141]9:[137]51020
- 51180 A$[178]"(null)PLOADED BY: "[170]TY$[170]"STR$ESCRIPTION:>"[170]CM$:[141]9
- 51190 [151]708,.:[139]SC[176]PW$[178]"NONAME"[167]51215
- 51195 A$[178]"ASCILE "[170]WP$:O[178]6:[141]7:I$[178][200](I$[170]" ",6)
- 51200 [141]6:[139]I$[178]PW$[167]A$[178]WP$[170]" ATNCCEPTED":[137]51215
- 51210 A$[178]V$[170]WP$[170]R$:[137]5
- 51215 [139]AL[175][201](F$,4)[179][177]".ATN(null)LEN"[167]A$[178]"(null)OT AN ATN(null)LEN FILE":[137]20
- 51218 [139]AL[167]54480
- 51222 [139]XP[178]4[167]YN[178]YN[170]1:J7[178]J7[170][197]([202](T$,3)):A%(YN)[178]M3:[137]51020
- 51223 F[178][197]([202](T$,3))
- 51224 MJ[178]F:MJ$[178]" LENPEEK(null) PEEKLOCKS":[139]U4[178].[167]MJ$[178]" PEEKYTES":F[178]F[172]W
- 51225 A$[178]"(null)ENDING"[170][196](F)[170]MJ$[170]" AT"[170][196](BR)[170]" PEEK(null)(null)":[141]9:F[178]MJ:J7[178].
- 51230 FE[178]17:[139]XP[167]FE[178]19:[139]XP[177]2[167]FE[178]21
- 51235 FE[178]FE[172](1[171]1[172](BR[177]1230)):[139]BR[177]1199[167]F[178][181](100[172]F[173]FE)[173]100:[137]51240
- 51236 FE[178]50:[139]XP[167]FE[178]47:[139]XP[177]2[167]FE[178]45
- 51237 F[178][181](100[172]F[173](BR[173]FE))[173]100
- 51240 MJ[178].:FE[178].:A$[178]"(null)RANSMIT (null)IME:"[170][196](F)[170]" (null)INUTE(S)":[141]9
- 51241 [139]XP[178]4[167]A$[178]" (null)O. OF ASCILES:"[170][196](YN):[141]2
- 51243 [141]2160:[139][181](F)[170]L4[177]EZ[175]SC[178].[167]50600
- 51244 LO[178].:[139]TV[179][181](F)[175]TV[177].[167]50620
- 51245 [139]XP[178]4[167]A$[178]"(null)OGOFF AFTER TRANSFER? ":[141]9:VK$[178]"(null)(null)":[141]25:[139]D[167]LO[178]1
- 51246 [139]XP[167]51300
- 51250 A$[178]" PEEKLOCK (null)IZE:"[170][196](BS)[170]R$:[141]2
- 51260 [141]42:A$[178]A$[170]" PEEK=LENHANGE PEEKLK (null)IZE":[141]2
- 51280 SU$[178]"(null)(null)":[141]52610:[139]SU$[179][177]"(null)(null)"[175]SU$[179][177]"(null)"[167]A$[178]SU$:[137]5
- 51290 [139]SU$[178]"(null)"[167][141]8:[137]51260
- 51300 [139]XP[167]A$[178]"(null)EADY TO (null)END - LEN(null)(null)(null)-(null) TO ATNBORT":[141]9:[139]XP[178]4[167]4000
- 51310 I$[178]F$:A$[178][200](T$,1):[139]A$[178]"(null)"[167]SA[178]2:TP[178]2:FT$[178]"(null)VAL(null)":XO$[178]",S,R":[137]51340
- 51330 SA[178].:TP[178]1:FT$[178]"(null)(null)CHR$":XO$[178]",P,R
- 51340 SYS49224:POKE708,.
- 51345 CLOSE2:OPEN2,U,SA,DD$+I$+L$+XO$:GOSUB7050:IFXPTHENGOSUB83:SYS49269:GOTO51361
- 51350 GOSUB7080:SYS49173:POKEPP,TP:SYS49164
- 51355 IFPEEK(512)=1THENCLOSE2:GOTO51790
- 51360 SYS49173:POKE40984,BS:SYS49158
- 51361 CLOSE2:B$="LD":IF(PEEK(MP)AND16)<>CPTHENZ=1:POKE708,B
- 51362 IFPEEK(708)=BTHEN51367
- 51363 HD$(M3)=LEFT$(HD$(M3),LEN(HD$(M3))-3):DL$=MID$(STR$(VAL(DL$)+1),2)
- 51364 HD$(M3)=HD$(M3)+MID$("00",LEN(DL$))+DL$
- 51365 IFXP=4THENNF=NF+1:GOTO4000
- 51367 FORX=1TO1500:NEXT:GOSUB34:GOSUB500
- 51370 GOSUB51945:PRINT"[147]":SYS49230:FORX=1TO1500:NEXT:A$="[207][203]":GOTO20
- 51500 GOSUB7000:IFL$=""THEN53080
- 51505 IF(U(L)=1ORU(L)=3)ANDSC=.THENA$="[206]O UPLOADING TO THIS "+G$:GOTO20
- 51510 IFVAL(DR$(4,L))=>PGTHENA$="[204][201][211][212]"+L$+" [198]ULL":GOTO20
- 51515 IFTB$(U)="0"THENYU=1:GOSUB52163:YU=.:GOTO51525
- 51520 F$="AAA":GOSUB52200
- 51525 IFF<50THENA$="[196]ISK [198]ULL":GOTO20
- 51527 J=.:IFXP=4THENXP=3:J=1
- 51528 GOSUB45:IFJTHENXP=4:J=.:XP$="[217]MB:
- 51530 A$[178]R$:[141]85
- 51560 [141]44:[139]I$[178]C$[167]3
- 51590 [129]X[178]1[164]15:A$[178][202](I$,X,1):[139]A$[178]"?"[176]A$[178]"*"[176]A$[178]","[176]A$[178]":"[176]A$[178]Q$[167]A2$[178]"ASC
- 51600 IFA2$="[198]"THENA$=V$:GOSUB2:A2$="":X=15:NEXT:GOTO51560
- 51610 NEXT:GOSUB6:F$=I$:S$=I$
- 51630 GOSUB13:GOSUB55:OPEN2,U,2,DD$+F$+L$:INPUT#1,A,I$,I,I:GOSUB13:GOSUB6
- 51640 A$=I$:IFA=.THENA$="[198]ILE [197]XISTS
- 51690 [139]A[179][177]62[167]20
- 51700 J[178]1:A$[178]"VALNTER STR$ESCRIPTION"[170]RT$[170]">":O[178]38:[141]1:[141]6:CM$[178]""[170]I$
- 51701 A$[178]"(null)VAL(null)(null)(null)(null) FOR GENERAL ACCESS"[170]RT$[170]"OR ENTER A "[170]WP$:[141]9
- 51702 A$[178]">":O[178]6:[141]1:[141]8
- 51703 [139]I$[178]C$[167]PW$[178]"NONAME":[137]51720
- 51704 I$[178][200](I$[170]" ",6)
- 51705 [129]X[178]1[164]6:[139][202](I$,X,1)[178]","[176][202](I$,X,1)[178]":"[167]A2$[178]"ASC
- 51706 IFA2$="[198]"THENA$=V$+"CHARACTER":GOSUB2:A2$="":X=6:NEXT:GOTO51701
- 51707 NEXT:GOSUB6:PW$=I$
- 51720 POKE708,.:IFXPTHENSYS49224:GOTO51950
- 51730 SYS49224:GOSUB42:GOSUB2:L0=1
- 51740 SU$="[207][203]":GOSUB52610:L0=.:IFSU$<>"[207][203]"ANDSU$<>"[206]"THENA$=SU$:GOTO5
- 51750 IFSU$="[206]"THENGOSUB8:GOTO51720
- 51760 I$=F$
- 51770 GOSUB7050:SYS49173:SYS49161:GOSUB21:FT$=A$:GOSUB7080
- 51780 IFPEEK(512)<>1THEN51820
- 51790 PRINT"[147]":A$=W$:SU$=A$:GOTO5
- 51820 ZZ$=MID$("PSP",PEEK(PP),1):O$=","+ZZ$+",W
- 51835 XF$[178]DD$[170]F$[170]L$[170]O$:[159]2,U,2,XF$
- 51836 [139]XP[167][141]83:[158]49218:[160]2:[139][194](708)[179][177].[167]51933
- 51838 [139]XP[167]51870
- 51840 [129]X[178]1[164]1300:[130]:[158]61310:[158]49173:[158]49155:[160]2:[151]668,[194](667)
- 51870 [153]"LOAD":[139]([194](MP)[175]16)[179][177]CP[167]Z[178]1:[151]708,B:[137]51933
- 51871 [141]52200:T$[178][202]([196](F),2):JM$[178]F$
- 51872 [139][195](T$)[179]4[167]T$[178]"0"[170]T$:[137]51872
- 51873 F$[178]"":[141]52200:F$[178]JM$
- 51874 [139]F[178].[176][197](T$)[178].[167][160]1:[159]1,U,15,"V"[170]DD$:B$[178]"LU":[141]51945:[137]51790
- 51875 JM$[178]"":I$[178]ZZ$:[141]6:[139]PW$[178]"NONAME"[167]ZZ$[178]I$[170]"-"[170]T$:[137]51880
- 51876 ZZ$[178]I$[170]"*"[170]T$
- 51880 [129]X[178]1[164]1500:[130]:A$[178]"(null)PDATING "[170]G$[170]"...":[141]2
- 51890 K$[178]D$:[141]10:[141]22:DR$(4,L)[178][202]([196](M3),2)
- 51900 HD$(M3)[178]ZZ$[170]PW$[170]F$[170]""[170]N$[170]CM$[170]K$[170]"000":[141]500
- 51930 B$[178]"LU":[141]51945:[129]X[178]1[164]100:[161]#5,A$:[130]:[158]49230:[137]5
- 51933 [160]1:[159]1,U,15,"S"[170]XF$:[160]1:B$[178]"LU":[141]51945:[137]51790
- 51945 [159]2,8,2,"0:"[170]B$[170]",S,A":[139]NF[177]YN[167]NF[178]YN
- 51946 [139][194](708)[178]B[167]L$[178]"PEEK
- 51947 FORJ=1TONF:IFXP=4ANDB$="LD"THENA$=HD$(A%(J)):GOSUB550:F$=U$
- 51948 A$=L$+":"+F$+LEFT$(X$,17-LEN(F$))+LEFT$(N$,19):PRINT#2,A$
- 51949 A%(J)=.:NEXT:CLOSE2:YN=.:J=.:L$=MID$(STR$(L),2):RETURN
- 51950 A$="[[208]]ROGRAM OR [[211]]EQUENTIAL/[212]EXT > ":GOSUB2:VK$="[208][211]":GOSUB25
- 51957 ZZ$=I$:FT=-1*(I$="[211]"):IFZTHEN3
- 51960 FT$=MID$("[208][210][199][211][197][209]",FT*3+1,3):A$="[194]EGIN [212]RANSFER - [195][212][210][204]-[216] TO [193]BORT
- 51970 [141]9:[141]7050:[137]51835
- 52000 [141]7000:[139]L$[178]""[167]53080
- 52005 A$[178]"#CLOSEOF FILES: "[170]DR$(4,L):[141]9
- 52010 [141]22:[151]687,50:A$[178]" PEEKLKS":[139]U4[178].[167]A$[178]" PEEKYTES "
- 52030 A$[178]A$[170]" ASCILENAME STR$ATE STR$N(null)
- 52033 IFWD>77ANDLGTHENA$=A$+" [196]ESCRIPTION
- 52035 A$[178]A$[170]R$:[141]9:FC[178]7
- 52040 [139]M3[178]1[176]Q[167]52160
- 52050 M3[178]M3[171]1:A$[178]HD$(M3)
- 52120 [141]550:U$[178]U$[170][200](X$,16[171][195](U$))
- 52125 [139]U4[178].[167]MJ[178][197]([202](T$,3))[172]W:T$[178][200](T$,2)[170][202]([196](MJ),2)
- 52126 [139]U4[178].[175][195](T$)[179]8[167]T$[178][200](T$,2)[170]"0"[170][202](T$,3):[137]52126
- 52128 A$[178]T$[170]" "[170]U$[170]FD$[170]" "[170]DL$:[139]LG[175]WD[177]77[167]A$[178]A$[170]" "[170]CM$
- 52130 [139]FW[167]FC[178]FC[170]1:[139]FC[178]FW[167][141]71:[139]I$[178]"(null)"[167]52160
- 52133 [141]2:[139]Q[176]Z[167]52160
- 52137 [139]LG[167]52152
- 52139 [139]M3[178]1[167]52160
- 52150 [137]52050
- 52152 [139]SC[178].[176]PW$[178]"NONAME"[167]52155
- 52153 A$[178]"(null)ASSWORD: "[170]PW$:[141]70:[139]I$[178]"(null)"[167]52160
- 52154 [141]2:[139]Q[176]Z[167]52160
- 52155 [139]WD[177]77[167]52139
- 52156 A$[178]CM$[170]R$:[141]70:[139]I$[178]"(null)"[167]52160
- 52157 [141]2:[139]Q[176]Z[167]52160
- 52158 [141]70:[139]I$[178]"(null)"[167]52160
- 52159 [137]52139
- 52160 [141]13:[139]TB$(U)[179][177]"0"[167]52166
- 52163 [160]10:[159]10,U,15,"I0:":[152]10,"M-R"[199](250)[199](2)[199](3):[161]#10,A$,I$,I$
- 52164 F[178]C[172][198](I$[170]Y$)[170][198](A$[170]Y$):[160]10:[139]YU[167][142]
- 52165 [137]52180
- 52166 F$[178]"AAA":[141]52200
- 52180 A$[178]"":[141]85:[137]3
- 52200 [160]10:[139]TB$(U)[178]"1"[167][159]10,U,.,DD$[170]"$":[160]10
- 52205 FF$[178]"$"[170]DD$[170]F$[170]L$:[159]10,U,.,FF$
- 52210 [161]#10,A$,A$,A$,A$,A$,A$
- 52220 [161]#10,A$:[139]A$[177]""[167]52220
- 52240 [161]#10,A$,A$,A$,B$:F[178][198](A$[170]Y$)[170][198](B$[170]Y$)[172]C:[160]10:[142]
- 52610 K[178]TI
- 52620 [161]A$:[139]A$[177]""[167]52650
- 52630 [141]11:[139](TI[171]K[177]WT)[167]3
- 52640 [161]#5,A$:[139]A$[178]""[167]52620
- 52650 A[178][198](A$):[139]A[177]N[167]A[178]A[171]N:A$[178][199](A)
- 52660 [139]A[178]65[167]SU$[178]W$:[142]
- 52670 [139]A[178]67[176]A[178]71[167][142]
- 52690 [139]A[178]66[175]L0[178].[167]52710
- 52700 [137]52620
- 52710 A$[178]"LENURRENT (null)IZE ="[170][196](BS):[141]9
- 52730 A$[178]"(null)EW (null)IZE (40-255)":O[178]3:[141]7
- 52740 [139]I$[178]C$[167]52760
- 52750 BS[178][181]([197](I$)):[139]BS[179]40[176]BS[177]B[167]BS[178]B
- 52760 A$[178]"PEEKLOCK (null)IZE ="[170][196](BS):SU$[178]"(null)":[137]9
- 53080 A$[178]"STR$IR ASCILES (null)AME":[139]WD[177]77[167]A$[178]A$[170][200](X$,17)[170]P$[170]" LEFT$OURS
- 53081 GOSUB9:A$="---------------------------------
- 53082 [139]WD[177]77[167]A$[178]A$[170]"--------------------------------
- 53083 GOSUB2:JM=99:FORX=.TODR:A$=STR$(X):IFX>9THENA$=MID$(STR$(X),2)
- 53085 A$=A$+" "+LEFT$("000",3-LEN(DR$(4,X)))+DR$(4,X)+" "+DR$(3,X)
- 53086 IFWD>77THENGOSUB10002:A$=A$+LEFT$(X$,33-LEN(A$))+JM$
- 53087 GOSUB2:IFQTHENX=DR+1
- 53088 NEXT:JM=.
- 53090 L$=VQ$:L=VAL(L$):U=VAL(DR$(1,L)):DD$=DR$(2,L):GOTO3
- 54480 GOSUB13:GOSUB55:OPEN2,U,2,DD$+F$+L$+",P,R":INPUT#1,A,C1$,I,I:IFATHEN54855
- 54500 GET#2,A$,B$,F$,F$:V=ASC(A$+Y$):S=ASC(B$+Y$):IFV<>2THEN54855
- 54530 GET#2,A$,B$:L1=ASC(A$+Y$):L5=ASC(B$+Y$)
- 54550 GET#2,A$,B$,F$:L3=ASC(A$+Y$):B1=ASC(B$+Y$):B2=ASC(F$+Y$)
- 54580 GET#2,A$,B$:FT$=A$:FL=ASC(B$+Y$):IFFL>22THEN54855
- 54610 F$="":FORX=1TOFL:GET#2,A$:F$=F$+A$:NEXT
- 54650 GET#2,A$,B$,JM$:R1=ASC(A$+Y$):D1=ASC(B$+Y$):D2=ASC(JM$+Y$)
- 54690 A$="[198]ILENAME: "+F$+", "+FT$:GOSUB9:IFQTHEN54855
- 54710 A$="[204]ENGTH (BYTES):"+STR$(L3*65536+L5*C+L1):GOSUB2:IFQTHEN54855
- 54720 A$="[195]OMPRESSED BLOCKS:"+STR$(B2*C+B1):GOSUB2:IFQTHEN54855
- 54730 A$="[196]ATE:"+STR$(INT(D2/2+1980))+" /
- 54750 A[178][181](D1[173]32[170](D2[175]1)[172]8):A$[178]A$[170][196](A)[170]"CLOSE/
- 54760 A$=A$+STR$(D1AND31):GOSUB2
- 54790 GOSUB34:POKE731,W-(14+FL):SYS49263
- 54800 IFB2*C+B1=1THEN54840
- 54810 FORX=1TOB2*C+B1-1
- 54815 IFSTTHEN54855
- 54820 POKE731,W:SYS49263
- 54830 NEXT
- 54840 IFST=.ANDZ=.THEN54500
- 54850 GOSUB13:A$="[196]ONE!":GOTO5
- 54855 GOSUB13:A$=R$+W$:GOTO5
-